This smacks of homework... Sara recently asked this exact question here.

And this code looks exactly like neilwatson's answer here.

It looks like it should work fine, by the way. How do you know it doesn't?

-sauoq
"My two cents aren't worth a dime.";

I'm sure someone like japhy could roll this (and the kitchen sink) into one regexp, but here's my stab at it.
This is tested, and worked for me.

while(<FH>){
if(m/^(\d*)\s/){ $lineOfCode = $1; }
if(m/(\w*\.\w*)$/){ $filename = $1; }
}
[download]

Hope that helps

John J Reiser
newrisedesigns.com

Probably it's because the data you're trying to match is full of slashes, which you're also using as delimiters for your match. Either try different delimiters (e.g., "!"), or look into the quote-endquote metacharacters \Q and \E.

Update: As Emily Litella used to say, "Never mind." My answer might have been appropriate if you were trying to do a substitution such as s/$_/stuff/g; but that it wasn't your question. Sorry.

BCE
--Your punctuation skills are insufficient!

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

while (<DATA>) {
    /^(\d+).+\/(.+)$/;
    print "$1 :: $2 \n";
}

__DATA__
3198      X:/bs/al/src/eilass.pl
[download]