Select Code to Download

#!/usr/bin/perl

...
# do stuff here depending on where we are now:
    $current_amount .= $string if ( $current_element eq 'Amount' );
}