perl -le '$string = "isasdffdsakk";
if($string =~ /((.+?)(??{quotemeta reverse $2}))/s){
  print $1;
}
'
asdffdsa
[download]