if (substr($str, 0, length($/)) eq $/) {
    substr($str, 0, length($/), '';
}