Untitled

{
string $pasted[] = `ls "pasted__*"`;
string $object;
for ( $object in $pasted )
{
string $elements[];

tokenize( $object, "|", $elements );
string $stripped = $elements[ `size $elements` - 1 ];


$stripped = `substitute "pasted__" $stripped ""`;

catchQuiet(`evalEcho("rename " + $object + " " + $stripped)`);
}
}