my $line = "123:". "[img-smile \"58-41\" \":)\"]"; my $var1 = ""; (my $var2) = $line =~ /(\[img-smile [^]]+\])/; $line =~ s/$var2/$var1/; print $line;