use 5.010;
my $string = 'asdgdefg;sgrsegsdf.sdfggsdf?argsgs';
$string =~ s/^(.*)[.?!,:;][^.?!,:;]*$/$1/;
say $string;