my $bold = "\e[1m";
my $plain = "\e[m";

print "${bold}Bold text${plain} Plain text\n";