use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

print "パターン: /<(div|span)>.*</\\1>/\n\n";
&check("book is <div>2391yen</div>, cake is 800yen");
&check("today is <span>Friday</span>");

sub check{
  my ($str) = @_;

  if ($str =~ /<(div|span)>.*<\/\1>/){
    print "対象: $str\n";
    print "$&\n";
  }
}