use strict;
use warnings;

my $file1 = 'C:\test\abc.txt';
my $file2 = 'C:\test\file2.txt';
my $file3 = 'P:\cool\file3.txt';

fname($file1, $file2, $file3);
print $file1;

sub fname { s/.*\\// for @_; }