my $file_name = ''; $tst = 'test\testweb\testlibb\file.-finaltestfla.jar'; $file_name = $1 if ($tst =~ m/\A\S+\\(.*?\.jar)\z/i); print $file_name . "\n" . $tst;