#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $string = '?!?!?!/pack/something/whatever.cacshdska';

my ($before, $after) = $string =~ /(...)\W.*something.*\.c(.*)/;
say for $before, $after;
[download]

• \W stands for a "non-word" character, it matches ! and ? among other characters.
• a dot matches any character except a newline.
• * means "the previous thing repeated zero or more times"
• parentheses create "capture groups", what matches their contents gets returned (in this case, there are 2 capture groups, and we assing them to $before and $after).

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]