reading from file and outputting regex matches?

[vbsaltydog]

The goal is to read the code in the file being opened and output only the text strings that match the regular expression of /<b>anything</b>/ to a new file.

Here is the current code:
____________________________________________________________

#!/usr/bin/perl

open(SOURCE, "file") || die("can't open file: $!");

@array = <SOURCE>;

close SOURCE;

foreach $line (@array) {

print $line;

} # End of foreach.

__________________________________________________________

Thanks for your help,

-vbsaltydog

[Nedals]

So where do you need help?
Seems like you got most of it. Just do a little more studying.

#!/usr/bin/perl

use strict;

## open filename1 for reading
open(SOURCE, "file") || die("can't open file: $!");

## open filename2 for writing
open(DESTIN, "file") || die("can't open file: $!");

while (<SOURCE>) {
  chomp; ## remove EOL char
  if (regex test valid) {
    print DESTIN "$_\n";	
  }
}

close DESTIN;
close SOURCE;

[CyCo]

Oops, you forgot "write mode"...

## open filename2 for writing
open(DESTIN, ">file") || die("can't open file: $!");

[Nedals]

Oops, you forgot "write mode"...

Actually, I didn't.
I was leaving that as an exercise for vbsaltydog
The script I posted is VERY incomplete. Just a 'here's how you might do it'.

[CyCo]

my bad...