if (/~P/i) {
    print "\nHit a tilde!\n";
    $section = '1'; 
    $section2 = '0';
}