use Term::ANSIColor; printf "sede a %4.4s\n", colored( 'barevne', 'magenta' ); $Term::ANSIColor::AUTORESET = 1; ... po kazdem barevnek tiksku reset barvy print BOLD BLUE "Modry text.\n"; ... barevny text