use Env qw(PATH HOME); $path2 = $PATH; $path2 =~ tr/:/\n/; print $path2;