#! /usr/bin/perl

# HTMLソース
$source = qq|<h1 class="a">タグの除去</h1>\n<p>タグを<strong>除去する</strong>には<u>正規表\\現</u>を使えば簡単です。</p>\n|;

# 表示
print "オリジナル：\n$source\n";

# HTMLタグの除去処理
$source =~ s/<.*?>//g;

# 表示
print "タグ除去後：\n$source\n";

exit;