$name =~ /^(.{0,4})/ && print "$1\n";