Try it

#!/usr/bin/perl
print "Hello\nthere\n!\n";
print "\x48\x49\n";
print "\e[31m RED \e[0m \n";