$stamp =~ /^.{3}(.*)/$1/;
$stamp = substr($stamp,3); #<---- this is much faster