#!/usr/pin/perl $file = "perlintro.html"; $file2 = $file.'.txt'; open (MYIN, "<$file") || die "Can't open file $file: $!"; open (MYOUT, ">$file2") || die "Can't write to file $file2: $!"; while ($str = <MYIN>) { $n = index($str,'<'); break if $n < 0; do { $m = index($str,'>',$n); $l = $m - $n + 1; substr($str,$n,$l) = ''; # 0123456789 # n m $n = index($str,'<',0); } while ($n >= 0); print MYOUT $str; }; close(MYIN); close(MYOUT);