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