my $foo = "weird123";
my $result = $foo.($foo =~ s/123//?$foo:"");
print $result; # "weirdweird"