Help for this page

Select Code to Download

Select or download this

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

Select or download this

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