$filepath =~ /([\w|\.]*)$/;
my $filename = $1;