Perl code - 3 lines

Link:

Perl, pasted on Jul 7:

1
2
3

my $test_string = '<my_word=some_word>';
  $test_string =~ s/[\<\>\=]//g;
  print $test_string; # my_wordsome_word

Output:

1	my_wordsome_word