$
$
$ # Show the content of the file "file1". We'll make use of the fact that "CVR(10)" and "SAUCE"
$ # appear only once in the file.
$
$ cat file1
CVR( 9) =   0.385E+05,  ! VEHICLE
CVR(10) =   0.246E+05,  ! SAUCE
CVR(11) =   0.162E+03,  ! VEHICLE
$
$
$ # Show the Perl program
$
$ cat -n file1.pl
     1  #!perl -w
     2  use strict;
     3
     4  my $random = 5;
     5  my $need = 51;
     6  my $extracted_number;
     7  my $file = "file1";
     8
     9  # read the value of $extracted_number from "file1"
    10  open (FH, "<", $file) or die "Can't open $file for reading: $!";
    11  while (<FH>) {
    12    if (/^CVR\(10\)\s*=\s*(.*?),.*?SAUCE$/) {
    13      $extracted_number = $1;
    14      last;
    15    }
    16  }
    17  close (FH) or die "Can't close $file: $!";
    18
    19  # We have read the value of $extracted_number now; it will be used
    20  # while printing the string below
    21  my $str = <<"EOF";
    22  Blah blah random text
    23  random \$text that has \$\$variables in it but I need to just be text
    24  the above line should literally read "\$text" and "\$variables"
    25  other $random text that i $need to evaluate variables
    26  the above line should convert \$random and \$need to their respective values example 5 and 51
    27  The variable $extracted_number - this number needs to be 0.246E+05
    28  EOF
    29
    30  print $str;
$
$
$ # Execute the Perl program
$
$ perl file1.pl
Blah blah random text
random $text that has $$variables in it but I need to just be text
the above line should literally read "$text" and "$variables"
other 5 text that i 51 to evaluate variables
the above line should convert $random and $need to their respective values example 5 and 51
The variable 0.246E+05 - this number needs to be 0.246E+05
$
$
$