System Functions Perl

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