Total Elapsed Time = 0.080048 Seconds
  User+System Time = 0.080048 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 87.4   0.070  0.070     40   0.0018 0.0018  main::extract
 12.4   0.010  0.010      1   0.0100 0.0100  warnings::BEGIN
 0.00   0.000  0.010      2   0.0000 0.0050  main::BEGIN
 0.00   0.000  0.000      1   0.0000 0.0000  warnings::import
 0.00   0.000  0.000      1   0.0000 0.0000  strict::import
 0.00   0.000  0.000      1   0.0000 0.0000  strict::bits
 0.00   0.000  0.000      1   0.0000 0.0000  Exporter::import
 0.00   0.000  0.000      1   0.0000 0.0000  warnings::bits

##</code><code>##

Total Elapsed Time = 123.5199 Seconds
  User+System Time = 39.62993 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 97.1   38.49 38.520     40   0.9622 0.9630  main::extract
 0.05   0.020  0.020      1   0.0200 0.0200  utf8::SWASHNEW
 0.03   0.010  0.010      1   0.0100 0.0100  utf8::AUTOLOAD
 0.00       - -0.000      1        -      -  utf8::SWASHGET
 0.00       - -0.000      1        -      -  Exporter::import
 0.00       - -0.000      1        -      -  warnings::unimport
 0.00       - -0.000      2        -      -  warnings::import
 0.00       - -0.000      1        -      -  warnings::BEGIN
 0.00       - -0.000      2        -      -  strict::unimport
 0.00       - -0.000      4        -      -  strict::bits
 0.00       - -0.000      2        -      -  strict::import
 0.00       - -0.000      3        -      -  main::BEGIN
 0.00       - -0.000      5        -      -  utf8::BEGIN

##</code><code>##

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 98.4   0.630  0.630     40   0.0157 0.0157  main::extract
 1.56   0.010  0.010      1   0.0100 0.0100  warnings::BEGIN
 0.00       - -0.000      1        -      -  warnings::import
 0.00       - -0.000      1        -      -  strict::import
 0.00       - -0.000      1        -      -  strict::bits
 0.00       -  0.010      2        - 0.0050  main::BEGIN

##</code><code>##

use strict;
use warnings;

open (FILE, "a.txt");
my $text = "";
while (<FILE>) {
     $text .= $_;
}

close (FILE);

while (my ($one, $two) = extract ($text)) {
     $text = $one . $two;
}

sub extract {
     my ($text) = @_;

     if ($text =~ /(.*?)whatever(.*)/is) {
          return ($1, $2);
     }

     return ();
}

##</code><code>##

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 88.1   0.670  0.670      1   0.6700 0.6700  main::extract

##</code><code>##

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 95.0   2.490  2.510      1   2.4900 2.5100  main::extract

##</code><code>##

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 19.5   0.080  0.080      1   0.0800 0.0800  main::extract

##</code><code>##

    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef

##</code><code>##

    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio= d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef

##</code><code>##

    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef

##</code><code>##

$text =~ /(.*?)<whatever>/

##</code><code>##

$text =~ /^(.*?)<whatever>/