$a .= $b;
$b = substr($a,0,length($a)-length($b));
substr($a,0,length($b)) = '';