use strict;
use warnings;

my $file = '?!?!?!/pack/something/whatever.cacshdska';
$file =~ s/..![^!]*something.*\.c//;
print $file . "\n";