if(@match = $filepieces =~ /SOME_REGEX/smg) {
# ...
}