$var =~ s/(.*)/$1/;