;#!/usr/local/bin/perl


my $pretend_file="/home/Lance/perl/double/four.m4a";


my $filename=split(///,$pretend_file,1);

print "$filename\n";