#!/usr/bin/perl -w
use strict;

my $regexp = qr{some regexp}o;
open (FILE, 'some.file') or die "Can't open file.\n";
undef $/;
my $file = <FILE>;
close FILE;

while ($file =~ /$regexp/g) { print "$1\n"; }