System Functions Perl

use Env; 
$path2 = $PATH;
$path2 =~ tr/:/\n/;
print $path2;