foreign exchange revenue
currency revenue
##</code><code>##

use strict;
use warnings;

my $FX_growth;

    if ($text=~/\b(?:(revenues?|sales|growth)\W+(?:\w+\W+){0,4}?(currency|foreign\Wexchange)|(currency|foreign\Wexchange)\W+(?:\w+\W+){0,4}?(revenues?|sales|growth))\b/i)
        {
            $FX_growth =()= $text =~ /\b(?:(revenues?|sales|growth)\W+(?:\w+\W+){0,4}?(currency|foreign\Wexchange)|(currency|foreign\Wexchange)\W+(?:\w+\W+){0,4}?(revenues?|sales|growth))\b/gi;
        } else {
            $FX_growth=0;
            }