The script part you show is working:

my $n= x('AUbla bla bla bla');
print $n;


sub x {
    my @fucntion64= @_;
foreach my $j (@fucntion64)
            {
            if(substr($j,0,2) eq "AU") {
            my($item,$title) = split(' ',substr($j,2),2);
            return $title."<br />";
            }
        }
}

# prints 
bla bla bla<br />
[download]

Did you notice that you wrote fucntion64 instead of (I assume) function64?

That was a typo in the post and not the code. Sorry for the confusion. When I use this syntax in my code I do get $title but it just prints one, and not foreach. If you know what I mean.

If you want to collect all titles and use them in your main program, just store them in an array (use push for that) and return the array after(!) the foreach loop.

$title does not exist outside of the sub.

You get warnings about this if you Use strict warnings and diagnostics or die

And off to read perlintro/perlsub (or Tutorials) you go

#!/usr/bin/perl --
use strict;
use warnings;
sub many { return @_ }
my $one = many( 6 .. 12);
my @all = many( 16 .. 18 );
my (undef, $second) = many( 26 .. 28 );
print "
one $one
all @all
some $second
";
__END__

one 7
all 16 17 18
some 27
[download]

I am using Strict (like I said in the post!). But there is no error. That's what I don't understand. Is it bad practice to use "our $title" in the function so I can reuse it in the script?

I am using Strict (like I said in the post!). But there is no error.

ah, post a complete program :) How do I post a question effectively?

Is it bad practice to use "our $title" in the function so I can reuse it in the script?

Yes. Having trouble getting it to work should be convincing :) Variables and Scoping

If you're returning title are you assigning it to a variable on it's return?

#!/opt/perl/bin/perl
use strict;
use warnings;

my $title="name";
print "$title\n";

$title = &function64("name");
print "$title\n";

sub function64 {
    my ($title) = @_;
    $title="$title " x 3;
    return ($title);
}
[download]

But there is no error.

Strict can only warn about some bugs, not all of them. Otherwise you could trivially write perl scripts without any bugs.

If you don't have really compelling reasons, functions should return values only through 'return'. Note that you can return more than one value in perl, different from languages like C. In C this is often the reason why other means are used to return values.

$var = `function.pl`;
[download]

I can't say I fully understand but I think you mean how am I referencing the function file? I do this:


require "functions.pm";
[download]

Is that what you mean? Sorry, still new this all this.

OK, you are not running the function in a different process, which would have explained your symptoms, you are loading the function from a module at run-time. We certainly need to see your code.