in reply to Re^2: swapping lines that match a condition
in thread swapping lines that match a condition

Close, but you need the /m modifier (See m). This makes ^ match the beginning of the line and $ match the end of the line anywhere within a single string. Note that you'll have to have the whole file as a string to use this. Also, you'll need to match the whole of each line. So a solution might look like this:

#!/usr/bin/perl use strict; use warnings; my $filename = shift or die "Need a filename"; my $text; SLURP:{ local $/; open my $fh, '<', $filename or die "Error opening $filename: $!"; $text = <$fh>; close $fh; } $text =~ s/(^fixed.*) #match fixed-address \n #followed by newline (^hardware.*) #followed by hardware / $2\n$1 #and switch them (remember newline!) /mgx; #m for multiline, g for multiple matches print $text;
print pack("A25",pack("V*",map{1919242272+$_}(34481450,-49737472,6228,0,-285028276,6979,-1380265972)))